Aminet 32/Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso/Aminet/disk/cache/fda.lha/FDA_Demo/Install_FDA

Text File | 1999-04-26 | 21KB | 979 lines

;============================================================================;
;=  $VER: 1.4 Future Drive Accelerator Installscript by Martin Tauchmann    =;
;============================================================================;

;C:WBStarter Devel:FDA_link/FDA_Demo/Install-FDA.deutsch

(set #Ver ("1.4"))

;================================= ENGLISH ==================================;

(set #bad-kick "You must be using Kickstart 2.04+ to use FDA!")

(set #install-start
    (cat
        "\nWelcome to Future Drive Accelerator V"#Ver" installation utility.\n\n"
        "Written and performed by Martin Tauchmann\n\n"
        "The newest fdaupdate.lha can be found at HTTP://MartinTauchmann.home.pages.de"
    )
)

(set #where-FDA "Where would you like to install FDA and FDAView?\nI will not create a directory.\nAn installation to the \"SYS:WBStartup\" Drawer, is later possible.")

(set #where-FDA-help
    (cat
        "This is the destination directory of FDA and FDAView."
        " SYS:System is a good place"
    )
)

(set #install-select
    (cat
        "Please select the different parts of FDA that you"
        " would like to install:"
    )
)

(set #install-select-help
    (cat
           "Future Drive Accelerator :\n"
           "\n"
           "ca. 32 KB\n"
           "\n"
           "\n"
           "Future Drive Accelerator Guide, HTMl, DVI, PS, texi :\n"
           " with Statistic-Program"
           "\n"
           "ca. 270 KB\n"
           "\n"
           "\n"
           "Future Drive Accelerator Preferences :\n"
           "\n"
           "ca. 40 KB\n"
           "\n"
           "\n"
           "Future Drive Accelerator Viewer :\n"
           "\n"
           "ca. 22 KB\n"
    )
)

(set #item-FDA "FDA Program")
(set #item-doc "Future Drive Accelerator Documentation")
(set #item-FDAprefs "Future Drive Accelerator Preferences")
(set #item-FDAView "Future Drive Accelerator Viewer")


(set #which-CPU
    (cat
        "Choose the FDA Processor-Version you would like installed.\n"
        "This Amiga is running with a MC " (DATABASE "cpu")
    )
)

(set #where-doc "Where would you like to install the Guide and the Statistics? I create a Directory `FDAdoc´")

(set #where-FDAprefs "Where would you like to install FDA Preferences editor?")

(set #where-FDAprefs-help
    (cat
        "This is the destination directory of FDA Preferences editor."
        " Normally ALL preferences editors are in SYS:Prefs !"
    )
)


(set #doc-select-Lang
    (cat
        "Choose the language of the documentation"
        " you would like installed.\n"
    )
)

(set #doc-select
    (cat
        "Choose the format of the documentation"
        " you would like installed.\n"
    )
)

(set #doc-select-help
    (cat
        "Guide :\n"
        "Need MultiView or AmigaGuide.\n"
        "\n"
        "DVI (TeX) : (only in extra-archive)\n"
        "Need ShowDVI from example: PasTeX.\n"
        "\n"
        "PostScript : (only in extra-archive)\n"
        "Need HWG-Post or Ghostscript to read it online,\n"
        "or an PostScript Printer.\n"
        "\n"
        "HTML :\n"
        "Need an WWW-Browser exaples: AmiWeb, Visage, IBrowse, Lynx.\n"
        "\n"
        "TeXinfo : (only in extra-archive)\n"
        "Need texinfo from GeekGadget, only neccesery for translations.\n"
    )
)


(set #installType-select
    "How should Future Drive Accelerator started at booting?"
)
(set #installType-select-help
    (cat
        "Startup-Sequence:\n"
        "You are able to to it self.\n"
        "=>Started at earlierst.\n"
        "\n"
        "User-Startup:\n"
        "will be automatically do nearly on all systems.\n"
        "=>Started at second earlierst.\n"
        "\n"
        "WBStartup:\n"
        "Can`t go anything wrong.\n"
        "=>Will only be started if the booting is finished.\n"
        "=>An HardLink spares diskspace.\n"
        "=>The file seems to be exists double.\n"
    )
)
(set #install-end1
    "Type in `S:Startup-Seuence` after SetPatch, SaferPatches, PoolMem.\n\n"
)
(set #install-end2
    "\n"
)

(set #install-Pref-Cancel
    "Please configure Future Drive Accelerator, before you are using it."
)

(set #install-EndMsg
    "Please install the fastest `CopyMemQuick` replacement, istead of the `MCP-CopyMemQuick` replacement.\nRead the Chapter `Speed up` in the Documentation."
)


(set #patch1_1 (cat "\n\nNow, patching file `"))         ;Dateiname wird eingefügt
(set #patch1_2 (cat "`\nto the MC68000 Version."))

(set #ErrorMsg1_1 (cat "\n\nError while patching file `"))       ;Dateiname wird eingefügt
(set #ErrorMsg1_2 (cat "`\n."
               "\n\n\ncase 1 file not located,\n"
               "case 2 its alright the "))        ;Neue Version wird eingefügt



;===[ German Documentation ]=================================================

(if (= @language "deutsch")
 (
(set #bad-kick "Man benötigt Kickstart 2.04 oder höher, um FDA benutzen zu können!")

(set #install-start
    (cat
        "\nWillkommen zur Future Drive Accelerator V"#Ver" Installation.\n\n"
        "Geschrieben von Martin Tauchmann\n\n"
        "Das neuste fdaupdate.lha ist bei HTTP://MartinTauchmann.home.pages.de ausfindig zu machen."
    )
)

(set #where-FDA "Wohin möchtest Du FDA und FDAView installieren?\nIch werde kein Verzeichniss erstellen.\nEine installation in das \"SYS:WBStartup\" Verzeichniss ist noch später möglich.")

(set #where-FDA-help
    (cat
        "Dies ist das Zielverzeichnis vom FDA und FDAView."
        " SYS:System ist ein guter Platz."
    )
)

(set #install-select
    (cat
        "Bitte wähle die einzelnen Teile des FDA aus, die"
        " Du installieren möchtest:"
    )
)

(set #install-select-help
    (cat
           "Future Drive Accelerator :\n"
           "\n"
           "ca. 32 KB\n"
           "\n"
           "\n"
           "Future Drive Accelerator Guide, HTMl, DVI, PS, texi :\n"
           " mit Statistik-Programm"
           "\n"
           "ca. 270 KB\n"
           "\n"
           "\n"
           "Future Drive Accelerator Preferences :\n"
           "\n"
           "ca. 40 KB\n"
           "\n"
           "\n"
           "Future Drive Accelerator Viewer :\n"
           "\n"
           "ca. 22 KB\n"
    )
)

(set #item-FDA "FDA Programm")
(set #item-doc "Future Drive Accelerator Dokumentation")
(set #item-FDAprefs "Future Drive Accelerator Preferences")
(set #item-FDAView "Future Drive Accelerator Viewer")

(set #which-CPU
    (cat
        "Wähle die FDA Prozessor-Version aus, die Du gerne installieren möchtest.\n"
        "Dieser Amiga läuft mit einem MC " (DATABASE "cpu")
    )
)

(set #where-doc "Wohin möchtest Du die Dokumentation und die Statistiken installieren? Ich erstelle ein Verzeichniss `FDAdoc´")

(set #where-FDAprefs "Wohin möchtest Du den FDA Voreinsteller installieren?")

(set #where-FDAprefs-help
    (cat
        "Dies ist das Zielverzeichnis des FDA Voreinstellers."
        " Normalerweise sind alle Voreinstellungsprogramme im SYS:Prefs."
    )
)


(set #doc-select-Lang
    (cat
        "Bitte wähle ein Spache der Dokumentation aus, die"
        " Du installieren möchtest:"
    )
)

(set #doc-select
    (cat
        "Bitte wähle das Format der Dokumentation aus, die"
        " Du installieren möchtest:"
    )
)

(set #doc-select-help
    (cat
        "Guide :\n"
        "Brauch MultiView oder AmigaGuide.\n"
        "\n"
        "DVI (TeX) : (nur im Extra-Archive)\n"
        "Brauch ShowDVI von z.B. PasTeX.\n"
        "\n"
        "PostScript : (nur im Extra-Archive)\n"
        "Brauch HWG-Post oder Ghostscript zum online lesen,\n"
        "oder einen PostScript Drucker.\n"
        "\n"
        "HTML :\n"
        "Brauch einen WWW-Browser z.B. AmiWeb, Visage, IBrowse, Lynx.\n"
        "\n"
        "TeXinfo : (nur im Extra-Archive)\n"
        "Brauch texinfo von GeekGadget, nur zum Übersetzen nötig.\n"
    )
)


(set #installType-select
    "Wie soll Future Drive Accelerator beim booten gestartet werden?"
)
(set #installType-select-help
    (cat
        "Startup-Sequence:\n"
        "Darf manuell gemacht werden.\n"
        "=>Wird am frühesten gestartet.\n"
        "\n"
        "User-Startup:\n"
        "Wird bei fast allen Systemen automatisch gemacht.\n"
        "=>Wird am zweit frühesten gestartet.\n"
        "\n"
        "WBStartup:\n"
        "Kann nichts schief gehen.\n"
        "=>Wird erst bei Beedigung des booten gestartet.\n"
        "=>Ein HardLink spart Speicherplatz.\n"
        "=>Die Datei ist scheinbar doppelt vorhanden.\n"
    )
)

(set #install-end1
    "Nun darfst Du in die `S:Startup-Seuence` nach SetPatch, SaferPatches, PoolMem.\n\n"
)
(set #install-end2
    "eintippen.\n\n"
)

(set #install-Pref-Cancel
    "Bitte erst Future Drive Accelerator einstellen vor der Benutzung."
)

(set #install-EndMsg
    "Bitte intallieren Sie den schnellsten `CopyMemQuick` Ersatz, statt dem `MCP-CopyMemQuick` Ersatz.\nLesen Sie das Kapitel `Speed up` in der Dokumentation."
)


(set #patch1_1 (cat "\n\nJetzt wird die Datei `"))           ;Dateiname wird eingefügt
(set #patch1_2 (cat "`\nfür den MC68000 prepariert."))

(set #ErrorMsg1_1 (cat "\n\nDas Patchen der Datei `"))           ;Dateiname wird eingefügt
(set #ErrorMsg1_2 (cat "`\n ist fehlgeschlagen !!!"
               "\n\n\nEntweder wurde das File nicht gefunden,\n"
               "oder es ist bereits die "))        ;Neue Version wird eingefügt


 )
)



;-------------------------------------------------
; Vergleiche Versionen, und patche die Datei
; Verzeichnis, Datei
;-------------------------------------------------
(procedure Update #dir #dat #oldfileFullPath #patchPath #gpatchFullPath
 (set #dat2 (tackon #dir #dat))

 (working (cat #patch1_1 #dat #patch1_2))
 (set #patch (run (cat #gpatchFullPath" "#oldfileFullPath" "#patchPath #dat".patch \""#dat2"\" NOVERSION") (safe)))
 (if (> #patch 0) (message (cat #ErrorMsg1_1 #dat #ErrorMsg1_2 #dat " Version." ) (ALL))
 )
)
;============================== PROGRAM-START================================

(SET @default-dest "SYS:System/")
(SET #FDA-dest @default-dest)
(SET #FDAprefs-dest "SYS:Prefs/")


; Check Kickstart (>= v2.0) Version.

(if (< (/ (getversion) 65536) 37)
    (abort #bad-kick)
)

(message #install-start (ALL))
(welcome)

;============================ REAL INSTALLATION =============================



(COMPLETE 0)

     (SET parts
      (ASKOPTIONS
         (PROMPT    #install-select)
         (HELP    #install-select-help "\n\n" @askoptions-help)
         (CHOICES
            #item-FDA
            #item-FDAView
            #item-doc
            #item-FDAprefs
         )
      )
      )


(IF (OR (IN parts 0) (IN parts 1) (IN parts 2) (IN parts 3) )
  (
            (SET #usercpu 1)

            (IF (= (DATABASE "cpu") "68020")
              (
                (SET #usercpu 1)
              )
              (
                (IF (= (DATABASE "cpu") "68010")
                  (
                    (SET #usercpu 0)
                  )
                  (
                    (IF (= (DATABASE "cpu") "68000")
                      (
                        (SET #usercpu 0)
                      )
                    )
                  )
                )
              )
            )


   (IF (= @user-level 2)
     (
         (SET #usercpu
          (ASKCHOICE
             (PROMPT #which-CPU)
             (CHOICES "MC 68000+"
                  "MC 68020+"
             )
             (HELP @askchoice-help
             )
             (DEFAULT #usercpu)
          )
          )
     )
   )

  )
)

(IF (IN parts 0)
  (

    (SET #FDA-dest (ASKDIR (PROMPT #where-FDA)
               (DEFAULT @default-dest)
               (HELP #where-FDA-help "\n\n" @askdir-help)
            )
    )
    (SET @default-dest #FDA-dest)


   (DELETE (TACKON #FDA-dest "FDAV1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))

   (IF (= #usercpu 0)
     (
    (COPYFILES (SOURCE "FDA.info")
           (DEST #FDA-dest)
           (PROMPT "Copying MC 68000+ Version")
           (SAFE)
    )

    (Update #FDA-dest "FDA" "FDA" "MC68000/" "MC68000/GPatch")
     )
     (
       (IF (= #usercpu 1)
         (
        (COPYFILES (SOURCE "FDA")
               (DEST #FDA-dest)
               (PROMPT "Copying MC 68020+ Version")
               (SAFE)
               (INFOS)
        )
         )
       )
     )
   )

    (TOOLTYPE (DEST (TACKON #FDA-dest "FDA"))
          (NOPOSITION)
          (safe)
    )

  )
)

(COMPLETE 25)

(SET #vernum (GETVERSION (resident)))
(SET #vernum (/ #vernum 65536))

(IF (IN parts 1)
  (
    (IF (< #vernum 36)
      (
        (MESSAGE "You don't have OS2.0.\nFDAView only work with OS2.0 or higher." (ALL))
      )
    )

   (DELETE (TACKON #FDA-dest "FDAViewV1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))

   (IF (= #usercpu 0)
     (
    (COPYFILES (SOURCE "FDAView.info")
           (DEST #FDA-dest)
           (PROMPT "Copying MC 68000+ Version")
           (SAFE)
    )

    (Update #FDA-dest "FDAView" "FDAView" "MC68000/" "MC68000/GPatch")
     )
     (
        (COPYFILES    (SOURCE "FDAView")
            (DEST #FDA-dest)
            (PROMPT "Copying MC 68020+ Version")
            (SAFE)
            (INFOS)
        )
     )
   )

    (TOOLTYPE (DEST (TACKON #FDA-dest "FDAView"))
          (NOPOSITION)
          (safe)
    )

  )
)

(COMPLETE 50)


(IF (IN parts 2)
  (
    (SET #doc-dest (ASKDIR (PROMPT #where-doc)
               (DEFAULT @default-dest)
               (HELP @askdir-help)
            )
    )

    (DELETE (TACKON #doc-dest "FDA.guide#?") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))

    (DELETE (TACKON #doc-dest "DSG") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS) (ALL)))

    (COPYFILES (SOURCE "FDAdoc.info")
        (DEST #doc-dest)
    )

    (TOOLTYPE (DEST (TACKON #doc-dest "FDAdoc.info"))
          (NOPOSITION)
          (safe)
    )

    (SET #doc-dest (TACKON #doc-dest "FDAdoc"))
    (SET @default-dest #doc-dest)

    (COPYFILES (SOURCE "FDAdoc/FDA-Benchmarks.guide")
           (DEST #doc-dest)
           (INFOS)
    )

    (COPYFILES (SOURCE "FDAdoc")
           (DEST #doc-dest)
           (pattern "Benchmark-#?")
           (INFOS)
    )

    (COPYFILES (SOURCE "FDAdoc/DSG.info")
           (DEST #doc-dest)
    )

    (COPYFILES (SOURCE "FDAdoc/DSG")
           (choices "DSG"
            "DSG.guide"
           )
           (DEST (tackon #doc-dest "DSG") )
           (INFOS)
    )

    (COPYFILES (SOURCE "FDAdoc/DSG/PPC604_233MHz_060_50MHz_96MB")
           (DEST (tackon #doc-dest "DSG/PPC604_233MHz_060_50MHz_96MB") )
           (pattern "#?")
    )

    (COPYFILES (SOURCE "FDAdoc/DSG/BlizzardIV030_50Mhz_16MB")
           (DEST (tackon #doc-dest "DSG/BlizzardIV030_50Mhz_16MB") )
           (pattern "#?")
    )

    (COPYFILES (SOURCE "FDAdoc/DSG/TurboJet030_14MHz_2MB")
           (DEST (tackon #doc-dest "DSG/TurboJet030_14MHz_2MB") )
           (pattern "#?")
    )

    (SET #bguiExpand 0)
    (IF (= #usercpu 1)
            (IF (>= #vernum 39)
                    (SET #bguiExpand 1)
            )
    )


    (IF (= #bguiExpand 1)
        (
            (IF (= (getsize "Libs:bgui.library") 123588)
                (DELETE "Libs:bgui.library" (OPTIONAL "FORCE") (DELOPTS (SAFE) ))
            )
            (copylib
                (prompt        "Installing the bgui.library Enhanced (68020 & 3.0 compatible)...")
                (help        @copylib-help)
                (source        "FDAdoc/DSG/bgui.library")
                (dest        "Libs:")
                (optional    force askuser)
                (confirm)
                (safe)
            )
        )
        (
            (set #vernum1 (getversion "Libs:bgui.library"))

;            (message #vernum1)
;            (set #ver1 (/ #vernum1 65536))
;            (set #rev1 (- #vernum1 (* #ver1 65536) ) )

            (IF (< #vernum1 2686984)
                (Update "libs:" "bgui.library" "FDAdoc/DSG/bgui.library" "FDAdoc/DSG/" "MC68000/GPatch")
            )


        )
    )

(COMPLETE 55)

    (SET #docLanguage 0)

;    (IF (= @language "english")
;      (
;        (SET #docLanguage 0)
;      )
;      (
;        (IF (= @language "deutsch")
;          (
;            (SET #docLanguage 1)
;          )
;        )
;      )
;    )

    (SET #docLanguage
         (ASKCHOICE
        (PROMPT #doc-select-lang)
        (HELP    @askoptions-help)
        (CHOICES
;            "english (not available)"
            "deutsch"
        )
        (DEFAULT #docLanguage)
         )
    )

;    (IF (= #docLanguage 0)
;        (set #docLangExt "")
;    )

;    (IF (= #docLanguage 1)
;        (set #docLangExt "_d")
;    )

    (IF (= #docLanguage 0)
        (set #docLangExt "_d")
    )





    (SET #docParts
         (ASKOPTIONS
        (PROMPT #doc-select)
        (HELP    #doc-select-help "\n\n" @askoptions-help)
        (CHOICES
            "Guide"
            "DVI (TeX)"
            "PostScript"
            "HTML (WWW)"
            "TeXinfo"
        )
        (DEFAULT %01001)
         )
    )

    (set #docPath "FDAdoc")

;    (set #test ("FDA%s.%s" #docLangExt "guide") )
;    (debug "The value of 'test' is" #test)
;    (message #test)


    (IF (IN #docParts 0)
      (
        (set #docFileName ("FDA%s.%s" #docLangExt "guide") )
        (SET #doc (TACKON #docPath #docFileName))


        (IF (< #vernum 39)
            (
                (SET #cmd (cat "MC68000/gconv -s40 -o" (TACKON #doc-dest #docFileName) " "#doc) )
;                (MESSAGE #cmd)
                (set #rc (RUN #cmd (SAFE)))
            )
            (
                (COPYFILES (SOURCE #doc)
                       (DEST #doc-dest)
                )
            )
        )

        (COPYFILES (SOURCE (CAT #doc ".info" ))
               (DEST #doc-dest)
               (SAFE)
        )

        (TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
              (NOPOSITION)
              (safe)
        )




      )
    )

(COMPLETE 60)

    (IF (IN #docParts 1)
      (
        (set #docFileName ("FDA%s.%s" #docLangExt "dvi") )
        (SET #doc (TACKON #docPath #docFileName))
        (IF (= (EXISTS #doc) 1)
            (
                (COPYFILES (SOURCE #doc)
                       (DEST #doc-dest)
                       (INFOS)
                )
                (TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
                      (NOPOSITION)
                      (safe)
                )
            )
            (
                (message "Please extract the extra archive fda_d_DviPS.lha also in the same directory." (ALL))
            )
        )
      )
    )

(COMPLETE 65)

    (IF (IN #docParts 2)
      (
        (set #docFileName ("FDA%s.%s" #docLangExt "ps") )
        (SET #doc (TACKON #docPath #docFileName))
        (IF (= (EXISTS #doc) 1)
            (
                (COPYFILES (SOURCE #doc)
                       (DEST #doc-dest)
                       (INFOS)
                )
                (TOOLTYPE (DEST (TACKON #doc-dest #docFileName))
                      (NOPOSITION)
                      (safe)
                )
            )
            (
                (message "Please extract the extra archive fda_d_DviPS.lha also in the same directory." (ALL))
            )
        )
      )
    )

(COMPLETE 70)

    (IF (IN #docParts 3)
      (
        (COPYFILES (SOURCE "FDAdoc")
               (DEST #doc-dest)
               (pattern ("FDA%s#?.%s" #docLangExt "html"))
               (INFOS)
        )
        (TOOLTYPE (DEST (TACKON #doc-dest ("FDA%s_toc.%s" #docLangExt "html")))
              (NOPOSITION)
              (safe)
        )
        (COPYFILES (SOURCE "FDAdoc")
               (DEST #doc-dest)
               (pattern "FDA#?.png")
        )
      )
    )

(COMPLETE 75)

    (IF (IN #docParts 4)
      (
        (SET #doc-dest-Translator (TACKON #doc-dest "Translator"))

        (set #docFileName ("Translator/FDA%s.%s" #docLangExt "tex") )
        (SET #doc (TACKON #docPath #docFileName))

        (IF (= (EXISTS #doc) 1)
            (
                (COPYFILES (SOURCE #doc)
                       (DEST #doc-dest-Translator)
                       (INFOS)
                )
                (TOOLTYPE (DEST (TACKON #doc-dest-Translator #docFileName))
                      (NOPOSITION)
                      (safe)
                )
                (COPYFILES (SOURCE "FDAdoc/Translator")
                       (DEST #doc-dest-Translator)
                       (pattern "FDA#?.txt")
                )
                (DELETE (TACKON #doc-dest "Translator.info") (OPTIONAL "FORCE") (DELOPTS (SAFE) ))
            )
            (
                (message "Please extract the extra archive fda_d_DviPS.lha also in the same directory." (ALL))
            )
        )
      )
    )


   )
)

(COMPLETE 80)

(IF (IN parts 3)
  (
    (IF (< #vernum 36)
      (
        (MESSAGE "You don't have OS2.0.\nFDAPref only work with OS2.0 or higher." (ALL))
      )
    )
    (SET @default-dest "SYS:Prefs/")
    (SET #FDAprefs-dest (ASKDIR (PROMPT #where-FDAprefs)
               (DEFAULT @default-dest)
               (HELP #where-FDAprefs-help "\n\n" @askdir-help)
           )
    )
    (SET @default-dest #FDAprefs-dest)

   (DELETE (TACKON #FDAprefs-dest "FDAPref1.2") (OPTIONAL "FORCE") (DELOPTS (SAFE) (INFOS)))

   (IF (= #usercpu 0)
     (
    (COPYFILES (SOURCE "FDAPref.info")
           (DEST #FDAprefs-dest)
           (PROMPT "Copying MC 68000+ Version")
           (SAFE)
    )

    (Update #FDAprefs-dest "FDAPref" "FDAPref" "MC68000/" "MC68000/GPatch")
     )
     (
        (COPYFILES    (SOURCE "FDAPref")
            (DEST #FDAprefs-dest)
            (PROMPT "Copying MC 68020+ Version")
            (SAFE)
            (INFOS)
        )
     )
   )

    (TOOLTYPE (DEST (TACKON #FDAprefs-dest "FDAPref"))
          (NOPOSITION)
          (safe)
    )

    (SET #cmd ("MC68000/DoIconLite %s CTT=\"MAINPROGPATH=%s/\" num=5 QUIET" (TACKON #FDAprefs-dest "FDAPref" ) #FDA-dest ) )
    (set #rc (RUN #cmd (SAFE)))


   )
)


(COMPLETE 98)



    (SET #installType 2)
    (IF (= @user-level 2)
        (
           (SET #installType 0)
        )
    )
    (
        (IF (= @user-level 1)
            (
               (SET #installType 1)
            )
        )
    )


    (IF (< #installType 2)
         (SET #installType
          (ASKCHOICE
             (PROMPT    #installType-select)
             (HELP    #installType-select-help "\n\n" @askoptions-help)
             (CHOICES
                "S:Startup-Sequence (only informations)"
                "S:User-Startup"
                "SYS:WBStartup"
             )
             (DEFAULT #installType)
          )
          )
    )

    (IF (= #installType 0)
        (message #install-end1
            "RUN <>NIL: "#FDA-dest"FDA QUIET\n"
            #install-end2
        )
    )

    (IF (= #installType 1)
        (
            (SET #cmd ("RUN <>NIL: %sFDA QUIET" #FDA-dest) )
            (startup "FDA"
                (prompt "Adding to the \"S:user-startup\":\n\n"
                    "RUN <>NIL: "#FDA-dest"FDA QUIET\n"
                )
                (help "No help for this function")
                (COMMAND #cmd)
            )
        )
    )

    (IF (= #installType 2)
        (
            (SET #cmd ("c:MakeLink SYS:WBStartup/%s %s%s" "FDA" #FDA-dest "FDA") )
;            (message "wbstartup:\n\n"
;                #cmd
;            )
            (DELETE "SYS:WBStartup/FDA" (OPTIONAL "FORCE") (DELOPTS (SAFE) ))
            (set #rc (RUN #cmd (SAFE)))
            (if (> #rc 0)
                (
                    (message "Link installing in \"SYS:WBStartup\" fails.\nNow copy a duplicate" (ALL))
                    (COPYFILES (SOURCE (TACKON #FDA-dest "FDA"))
                           (DEST "SYS:WBStartup")
                           (safe)
                    )
                )
            )
            (COPYFILES (SOURCE "FDA.info")
                   (DEST "SYS:WBStartup")
                   (safe)
            )
            (TOOLTYPE (DEST "SYS:WBStartup/FDA")
                  (NOPOSITION)
                  (safe)
            )
            (set #rc (RUN "MC68000/DoIconLite SYS:WBStartup/FDA TTT=2 QUIET" (SAFE)))
            (SET #cmd ("MC68000/DoIconLite %s CTT=\"MAINPROGPATH=Sys:WBStartup/\" num=5 QUIET" (TACKON #FDAprefs-dest "FDAPref") ) )
            (set #rc (RUN #cmd (SAFE)))
        )
    )


(COMPLETE 99)

(working "Running FDAPref")
(set #rc (RUN (cat (TACKON #FDAprefs-dest "FDAPref") " EDIT MAINPROGPATH=\""#FDA-dest "\"" ) ))
(if (= #rc 10)
 (
    (message #install-Pref-Cancel (ALL))
 )
 (
    (set #rc (RUN (cat "RUN <>NIL: " (TACKON #FDA-dest "FDA") " QUIET") ))
    (RUN "Wait 1")
    (set #rc (RUN (CAT "RUN <>NIL: " (TACKON #FDA-dest "FDAView")  ) ))
 )
)


(message #install-EndMsg (ALL))

(COMPLETE 100)

(SET @default-dest #FDA-dest)